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RTITLE ‘EDTSINIT = initialize’ 
MODULE EDTSINIT (¢ ! Initialize 
spent = 'v04-000' ! File: INIT.BLI Edit: JBS1054 
= 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ON CCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


} NC E Vv OTICE. SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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!* THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
~. aepokatitne NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'* DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 
is 
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gg FOR THE USE OR RELIABILITY OF ITS 


I 
H NOT SUPPLIED BY DIGITAL. 


“FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 

Initialize EDT 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: August 6, 1979 
MODIFIED BY: 


1-001 - Original. DJS 18-FEB-1981. This module was created by 
extract ing routine EDTSS$SINIT from module TINPUT. 
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Py JB 4-Mar-T 
1-005 - Fix the file name. JBS pb ay te 1 
$ - Use new message codes. JBS raion Dd 
1- - Check for storage exhau ted when bene the permanent buffers, and return 
a value rather than print ng a message if the pr inary input tile is not found. 
1-008 - Initialization moved from EDTSDATA to here. STS 05-Nov-1981 
1-009 - Add some initialization of the TBCB for the main buffer. (a bug 
surfaced where he ur_line was not zero.) STS 15-Nov-198 
1-010 - Change this to_init oltre everything necessary for sharable 
image. STS 17-Nov-1981 
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ed the headers and arranged to call EDTSSFATAL_IOERR for {0 errors. JBS 19-Feb-1981 


JBS 16-Aug-1981 


EDTSINIT EDTSINIT = initialize m -1984 00:32:49 VAX-11 Bliss-32 V4.0-74 Pa 
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; 38 ; 1 ! 1-011 = Initialize the control C data by rite. Shs $Ogedanet JBS 29-Dec-1981 

; 1 | 1-012 = Convert to fileio to op , nput f ; 

; 60 1 ! 1-015 = Remove reverence te ef edt 2 sys sab 5Sin® 2-Jan-1982 

3; 6) 1 1 ! 1-014 = Autorepeat is initiall ‘Kut whe 
; 6 $06 1! 1-015 = Initiali ° EDTS$G_EN urReT.” S 11-Feb 8 

$ § 1! I. 1 - Yse roy o edteusrn 3 50.8 ." Se ktile. at oh -1982 

; 64 4 1! 1-017 = Initial ze “sescriptor EDTS f ADESS a3 -Feb-1 

; 69 5 1! 1- 3 - Add” iterals needed for ts able a 08-Mar-19 

; 68 ¢ 1 ! 1-019 = Initialize Line number a ee ar-1 
ny & 067 1 ! 1-020 = Change EDT$$G_CMD and EDT to "Borssv OPTIONS. JBS 18-Mar-1982 

; os B98 ' } 1-021 - . 3%, t70 f tine returns a status code. Watch for EDTS$_NONSTDFIL. 
3 0 89 1!1- § - Correct a ty 7po n ngneatendere file pond ing JBS 27-Mar-1982 
ir 27 071 1! 1- - Don't clear EDT$$G_EIGHT BIT. 82 

<= Ore 1! 1-026 = Set cw input file dpen flag. STS Takers -19 

wa. 0075 1 ! 1-025 = Don't initialiaze the TBCBs -= now gone © OY og5 DISSGET_BUFPTR. JBS 08-Apr-1982 
: 0074 1! I- § - Initialize EDTS$G_ Jou VALID. JBS 09-A 
Fe 0075 1! 1- - Improve the message if the primary input file cannot be opened. JBS 03-Jun-1982 
aa. 0076 1 ! 1-028 - Pass the defa oul ile name in the RHB orene ter. ins }5~Jun=1982 
he 0077 1! be 9 = Set EDTSS$G_CHM_FRST_ENTRY to 1 for callable EDT. SMB 01-Jul-1982 

oo) 0078 1 ! 1-030 - Initialize “EDISSG LASTMSG, remove Ha th CHM_FRST_ENTRY. JBS 05-JUL-1982 
; 79 0079 1 ! 1-031 = Take out Me tba to PRTC romet. obs Tays-'9 82 

; 80 0080 1! 1-236 - Save original termine} width. STS 0 

; «81 0081 1 ! 1-033 = Change the Line mode insert t prompt. ne WeeSut- 1982 
3 a¢ et 1 ! 1-034 = Remove EDTSSA_STR_CMP. 9-Jul-1 
. & 0085 1 ! 1-035 = Add initial tz6c ten sf select range. STS 06-Aug-1982 

; «684 0084 1 ! 1-036 - Move open neve le S Mt and get out if not found and 

; 85 85 1! nocreate. STS 1Oeku 982 

; 086 1 ! 1-037 - New implementation of Moet ined keys. JBS 12-Aug-1982 
3; 687 0087 1! 1-335 - Make use of the bit with in the Opt tone ve ver - STS 17-Aug-1982 

; 0088 1! 1-039 - Fix up references to EDTSM_. JBS 23-Aug-1 

; 0089 1 ! 1-040 - Zero out the “1R file open “flag. o3° 2 “huge 1982 

; we 090 1 ! 1-041 - Call EDtssiniTe JBS sheet 

; 091 1! I- rh - Initialize EDTS$G_ENB_AUTRPT in the terminal initialization. JBS 02-Sep-1982 
; 4 44 1 ! 1-043 - Initialize some streef structure globals. SMB 10-Oct-1982 
; 0095 1 ! 1-044 - Initialize the keypad d translation table. JBS Ma -1982 

; 94 094 1 ! 1-045 - New handlin ef E $86, SCR sREBUILD, JBS 21-Oct-19 

; | 695 95 1! I- $6 - Make edt$$w Seac st stati ag not "83.5 5 See pyptor. STS 11-Nov-1982 

3 38 943 1! 1-047 - o. itislize "EDT SEL. 

:; #9 097 1! 1- 48 - Remove referen nee “y EBT $T_EXE “N05. “is #e -pec-1982 

; 0098 1°! 1-049 - Initialize EDTS$$G_CS_LNO. 9-Dec-1982 

oe 0099 1 ! 1-050 - initialize EDTS$$G_ TOP’ SCREG, - EDT$86_60 BOT TASEREG. SMB 11-Jan-1983 
; 100 0100 1 ! 1-051 = Initialize EDT$$G_RECSCRUPD 19 
3 19) Ht 1! 1- 2¢ - Add conditionals for WPS sug ort. ye *T0-Fe b-1983 
3 ¥ § 106 1 ! 1-053 = Defer non-standard mess age no output file specified. JBS grter-t9e5 

: 13) Hh : 1-054 = Initialize EDT$$G_TAB_SIZ and EDT$$G_TAB_LVL. JBS 16-Sep-198 

: 105 0105 1 
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EDTSINIT EDTSINIT = initializ 16-Sep-1984 232:4 VAX-11 Bliss-32 V4.0-74 
be EO TSeINIT - HoH EDT 19-808- 1382 90:39:48 DIEKSUMGHASTERSCEOT SRCSINIT.OLI:1 
; 135 4 $ ! ZSBTTL ‘EDTSSINIT = Initialize EDT’ 
; 135 f 8 : GLOBAL ROUTINE EDTSSINIT ! Initialize EDT 
4 = 
ee ere 
3 \o7 166 } FUNCTIONAL DESCRIPTION: 
; 165 764 Initialize EDT 
: 189 766 1 | FORMAL PARAMETERS: 
; 198 iS 1! 
: 19 ree yi _ 
; 171 0776 { IMPLICIT INPUTS: 
; 178 O77 i EDTS$L_LNO_EMPTY 
: 1746 “ame EDTS$S$A_CUR_BUF 
: 175 077% 1 EDTSSA~INP~NAM 
: 176 775 1! EDTS$$G_INP_NAMLEN 
3 44 b778 ! EDTS$G_1OF T_NFND 
; 179 0778 ! IMPLICIT OUTPUTS: 
; 181 0780 Most of EDT's global variables 
; 188 Orbe { ROUTINE VALUE: 
: 185 9784 1 i 0 Primary input file was not found 
; 186 0785 1! 1 Primary input file was found 
: 187 0786 1! ; Primary input file does not have standard text format 
3 Hs 34-44 : } Primary input file open failure or other fatal error--abort 
; 190 0789 i SIDE EFFECTS: 
: 198 0791 1: Initializes most variables. 
3; #19 1434 1! Opens the work file and terminal. 
: 194 0795 1! Establishes the MAIN and PASTE buffers, or fails. 
: 195 79%4 1! Any 1/0 errors are fatal. 
5 Hs 795 1! 
; 19 36 1 !-- 
; 198 0797 1 
3; «4199 3738 BEGIN 
: Of 0800 EXTERNAL RCUTINE 
; 4 801 EDTSSCALLWIO, ' sets up handler and calls general work routine 
: 20 pag EDTSSCALLF IO, ! sets up handler and calls file routine 
: 04 80 EDTSSFMT_MSG 
: 205 804 EDTSSFATAL_IOERR : NOVALUE, 
: 5] 05 EDT$$TI_OPR 
: 20 EDTSS$ALO_HEAP ! allocate heap storage for strings 
; 208 0 EDT$$GET_BUFPTR, 
: 209 08 EDTSSFNG—BUF , 
: 210 09 EDTSSNEW_BUF 
: 11 10 EDT$S$CLR_CC : NOVALUE, ' Clear control C state 
: 4 11 EDTSSFIOPN_ERR : NOVALUE, ' Report ’ file open error 
3: 1 0812 EDTSSINIT_TO : NOVALUE; ' Initialize the 1/0 system 
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EDTSINIT SINIT = initiali 1b-se =1984 00:32:49 - VAX=11 BLliss-32_V4.0-74 Page 5 EDT! 
4 SSINIT - Inielatize EDT 1 7360-1382 99:39:48 NEEKSUMGMASTERSCEDT SRCSINIT.BLI:1 . (3) | v04: 
; 216 

; 215 i EXTERNAL LITERAL 

; 1 5 EDTSM_RECOVER ' /RECOVER specified ; 

: 21 $ EDTSM OOUTPUT , i /NOOUTPUT or /READ_ONLY specified 

: 1 EDTSM_NOCREATE ' /NOCREATE specified 

: 21 : EDT$K-OPEN_IN_OUT, 

: EDTSK_OPEN- INPUT, 

: 1 EDTSK_INPUT_FILE; 

: $5 gg IF NBLISS (BL1SS32) 

3 ¢ ? THEN 
H : 5 hes ROUTINE | 
: er $ STRSFREE1_DX; | 
3 4 8 FI 
; 231 0 EXTERNAL 
3 § 1 EDTS$$G_TOP_SCREG, ! Top of eerett ton region 

3 és ; EDTS$$G_BOT_SCREG, ! Bottom of scrolling region 

; EDTSSL_LNO_EMPTY : LN BLOCK, ! Empty record 

; 5 4 EDTSSL_TOP_LN : LN_BLOCK, ' Top screen record Ri 
3 5 EDTSSA_EOB_SCRPTR, ! End of buffer screen pointer 

3 $ $ EDTSSA_FST SCRPTR, ' First screen pointer 

3 EDTS$$G_LASTMSG ! The Last message printed 

; 239 8 EDT$$G_INPUT OPN, ' input file open fla 
; 240 9 EDTS$G_CMD_OPN, ! command file open flag 
: 261 0840 ED TSSA.cUR BUF : REF TBCB_BLOCK, ' Current text buffer control block. 
$ $s 0841 EDTSSA_INP_NAM ' Name of input file. 

: 24 pace EDT$$G_HELP SET ! Flag to indicate help file opened | 
> 264 084 EDT$$G_INP_RAMLEN, i Length of input file name. 

: 245 0844 EDTSSA_PRV_BUF, ' Previous tbcb. 

: rt 0845 EDTSSA_PST_BUF ! Paste buffer tbcb. 

> 26 0846 EDT$$G_EDIT_MOD, 
: 248 0847 EDTSSA_SEL_BuF, ' address of select buffer 

; 249 0848 EDTS$A_OLD_SEL ! Address of previous select buffer 

3 50 0849 EDTS$G_EDIT_DFLTMOD, 

: 251 0850 EDTS$G_SAV_CNT, 

; 25 0851 EDTS$G_EXITD 

: 25 085¢ EDTS$$A_OUT_NAM, 

: 354 085 EDTS$$G_PRV"LN, | 
: 255 854 EDTS$A~TIN-IBUFPTR, 

i 386 0855 EDT$$G_OUT_NAMLEN, 

: 25 2$ EDTSSA_CMD_NAM, 

; 58 5 EDTS$$G_NOS, 
: 259 58 EDTS$$G_CAS_FLG 

; 260 59 EDTS$G_EXCT_MATCH, 
: 261 0 EDT$$G_SEA_BEG 

i 966 1 EDT$$G_SEA_BNDD, 

; 26 ¢ EDT$$G_QUIET, 
; 64 EDTS$G_RPT, 
: 265 EDTSSG_FNF_MSGFLG, 

3 66 5 EDTSSG_VFY, 

; EDT$$G_TRUN 

; 268 EDT$$G_T1_wib, 

i 369 868 EDT$$G-SAV_TIWID, 

; 0 EDTSS$A_BUF_LST, 
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! 1 = open failed due to file not found 


. 
0m 
w 
— 
> 
@ 
.* ¢« ee . 
>- =a iT: 4 co 
@ oOo sO uw 
balled Oger aor 
ca —Ovvorwv oa 
oo Vr wwe ow Vv 
arr woe>>UuWw> oOo 
MUU . eo ~ >w w> _ 
Or ww — Mss Spee > @ 
=z>> «+ ~ — 2S ee .* o2@zZz-- oe — 
ling mis a be @ ze -—~—@O > We Aww +“QW0+- > a. 
Are = DM e-Y Oo ss. es < ——- JIDe-a OD & weJIwJw Ar 2a + 4 
accom -@oZz pat 3 ~ua -aM4 w s. Jj eOMuecaac —SSz22atsusnu www 
<-—@O2Ow-?-*- ZZ -—>V900 > aa peter $ fat FT ttt ep PE Lr 4s) 
“= t(t2za &eOw 1 VY0YITIZA o>> “S¥2zcSe°r(" 3s ON IMAI =-OOZ@QD sw 
o3w tu Huse | & + | wu iis —- are 23<~ to vw eeepc eeeeet 2 eS 
<= woe Exw 4 het te oa ses z< (tt O-eer £6 5 nt dt au. t 
A QOVLVUMOWMNYX Zor Zw Oat = ow Pt Lier, FEEETEEE zou 
<BMNMMVMN EDD Hee ITZ AH auv3z8a -~as 344400 mw = IB 
VUOVVVVVU<<UTVVV00004 “ oovew vovvves: NOE ORO OO bn bn bm oe 
PRAAPAAAAAPAAABDAAASAAPAA B AAAA PABAAPAA AA AALAPA AO AD BAHASA AADA 
CHADS lt LO SF Fh CD APL CP GF OFF OF OF GF oF UD OD 1 ARAM PF CD OF GY OD AF OF OF A 09 VS © BAA OF 6S 24 AD 09 29 VF od OF OF OD OF 
Cell cee sei amet alone bend cael cael el end amet ome oeel aed anette aaa cee ae ce oe et 
SoGOOOOoOoOoAaaaaaaaaaa cz AAA Aa SABA AQAGBAAGBABAAAAAAAGQG8GGG88a 
LVUTVUT YET YU Ye TYeT Tere relrerrylrvrrvrrvi rv reyes) eye) < [VOT VUTVUT TY) I I ll 
a 
— | 
4 
ws 
= _ 
oe — 
reve at 


OM MNT NOR DOO UM TNO DRO UM IN 
LLL P_P_PPR.R. DDODDDODODDDOOCOOOO 
€0.00.60.00.60.60.60 60.60.60 G0 60.40 60 60 G0 G0. 60 60 G0.60 G0 60.60 G0.60 
COOOOCOCOCOCOCOOCOOOOOOOOOOOOOoOOOO 


4 


S5-S3Ss25 wo DOOK—CUMTNOR. DOOK— TUM TNO 
SOE Oe oon a ooo DORON TS 
SSSSSSsSssssssssssssssssssssssss 


KAREKER RE Sa BeSSSBSSLSTSSES SS SS SOS ES ee on es OO ANNAN 


ia A. 
niet {ize EDT 12 i: 1982 93: 38: 3 DL aKSVMGHASTERSCEDT SR sae INIT.BLI;1 oo (35 cae 


$s: eS BITVECTOR (32), i gor tgns bits, bit 0 = ee 
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3 
T 
T$$G_JOU_VAL D, ournal record is val 

TSSA_TRN_TBL : VECTOR CK_KPAD _WASHSIZJ, 

T$$G_RECSCRUPD, Counter for updating the screen during recovery mode 
T$$G_WRITE_MSG; i Message on next WRITE or EXIT command 


1 
N 
MESSAGES ((INSMEM, INPFILOPN, NONSTDFIL)); | 
cm... 
Five DESC : BLOCK [8, ayTel. 
ACU BESC : BLOCK C . BYTEI, | 
RETURN_VALUE, 
10_STS; 
RETURN_VALUE = 1; ! Assume success 
} 
} 
| 
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i 38 

H m4 i on VAX/VMS we have fields defined for descriptors 

3 i #4Ll them in 

3 rf '- 

3 29 L at ZBLISS (BL1ISS32) 

3 26 EDTS$Z_WF_DESC pestse or ree = DSCSK_DTYPE_T; 

3 5 DT$$2-WF_DESC CDSC$B-CLASS) = DSC$K"CLASS_S; 

3 54 FILE_DESC™ DSCS$B_NTYPE = DSC$K_DTYPE_T; 

3 55 095 FILE DESC CDSC$B8_CLASSJ = DSCSK_CLASS_D; 

3 3$ 95 RHB_BESC Pesce rire, = DSC$K_BTYPE_T; 

$ 5 95 RHB_DESC COSCSB_CLASS] = DSCSK_CLASS_D; 

; 358 095 ZF I 

; 359 095 

3 60 095 EDTS$Z_WF_DESC poses pormten) = 

: 361 096 EDTS$2-WF-DESC CDSC$W-LENGTH] = 512; 

3 366 961 FILE_DESC DSCSA_POINTER) = 0; 

; 366 FILE-DESC COSCS$W"LENGTH) = 0; 

3; 364 096 RHB_BESC tp Stsu- POINTER) = 0; 

; 365 goee e RHB_DESC DSCSW-LENGTH] = 0; 

3 44 0366 Initialize a lot of variables. 

; 368 968 MOVELINE cores LNO_EMPTY, EDTS$L_TOP_LN); 

3 70 0969 EDTSSA_FST_SCRP PTR = 0; 

3; 371 a 0 EDTS$A_E0B_ ScRPTR, = 0: 

: i 971 EDTSS$G_LASTMSG = 1; ! No Last message 
3 oT 97 EDTSSA_SEL ~BUF = 0; ! “4 setegs range 
3; 374 97 EDTS$$A_OLD'S evious select buffer 
: 375 974 EDT$$G_RCOV Roo. = ae -EDT$$V_OPTIONS AND EDISH. REC VER) NEQ 0): 
3; 37 975 EDT$$G_RECSTRU 

FY 7 97 EDTS$$G_ EDIT mOD = “The MODE ; 

3 78 97 EDTS$$G_ CMD on 

: 379 978 EDT$$G-EDIT BFL mgd = LINE_MODE; 

§ 0 7 EDT$$G_SAV C 

: 381 980 EDT$$G_HELP SET, = 0; 

3 8 981 EDTS$G_ “fit = 0; 

; 38 9 ¢ EDT$$G_NOS = 1; 

3 84 09 EDTS$$G_CAS_F LG’ = 0; 
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rite ti H NIT = Hb ¢ a EDT 1978 aera 00:3¢:4 NET SUMCMARTER CET SRC SINIT.BLI:1 ° (3) 
EDTS$G_JOU_VALID = 0; 
! Initialize the keypad translation table to all empty. 
INCR I FROM 0 TO (K_KPAD_HASHSIZ = 1) DO 
3 
4 
3 
i 
4 
4 
4 
5 
4 
4 


PR 
—Zz 
_——) 


EDTS$A_TRN_TBL [.1] = 0; 


4 
Initialize the 1/0 system. 


EDTSS$TI_OPN (); 

; Attempt open first 

" EDT$$G_INPUT_OPN = 0 
EDTSSG_FNF_MSGFLG = 
EDTSS$A_FMT-CUR = EDT 
EDTSSA_FMT_WRRUT = E 

: EDTS$cCr_ct Q); 

Open the input file. 


BEGIN 


i. 
$$T_FMT_BUF; 
DTSSTI_ 


p88 6+ HNN NNN NTO DTI IIT DS oo 
PAAAASOMNMMNVIVNNUIVININE BEELER -1- 


RHB_LEN = 0 
D RHB_LEN, RHB_ADDR); 

DT$$G_INP_RNAMLEN, .EDT$$A_INP_NAM); 
C (EDTSK_OPEN_INPUT, EDTSK_INPOT_FILE, FILE_DESC, RHB_DESC); 


TS) AND (.1O_STS NEQ EDTS_NONSTDFIL)) 


B_DESC, RH 
LE Desc, E 
ALCFIO (ED 
BEGIN 
IF .EDT$$G_IOFI_NFND 
THEN 


BEGIN 

RETURN_VALUE = 0; 

IF ((.EDTS$V_OPTIONS AND EDTSM_NOCREATE) NEQ 0) THEN RETURN (0); 
END 


DONA WN 3 9 OODNAUES WIN SOO DNAUE WN O ODNOAUE UMN “OO OONOUS 
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BEGIN 
BE eT IOPN ERR (EDTS_INPFILOPN, FILE_DESC); 
RETURN.VALOE = 3; 


oooonovoo 


ooo 
NOUS wt 


< EDTSSINIT_I10 (); 
Open the terminal. If it fails, abort. 
| 
| 
| 
| 
j 
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EDTSINIT TSINIT = initializ 16-Sep-1984 00:32:49 VAX=11 Bliss-32 V4.0-74 P 10 
1047000 T siNIT ° Initiatize EDT 12286871388 99:38:18 DLSKSVMGMASTERSCEDT. SRCSINIT.BLI:1 vei (3) 
; 499 9 END 
00 9 ELSE 
01 BEGI 
6g EDTS$G_INPUT_OPN = 1; ! indicate input file open 


IF (.IO_STS EQL EDTS_NONSTDFIL) THEN RETURN_VALUE = 2; 


END; 
_ END: 
CHSMOVE (4, UPLIT BYTE(3, 13, 10, '*'), EDTSS$T_PMT_LINE); 
(1, UPLIT BYTE(OS, EOTS$T_PMT_KPD); 
CHSMOVE (1, UPLIT BYTE(O gDTSsT PMT~NOKPD) 
CHSMOVE (5. UPLIT BYTE(4 10,7" 
(16, uPLIT ByTe(t4, 13, 1 
(3, UPLIT BYTEC¢ 3, 10) 
(4; UPLIT BYTE(3, 13, 10, 


CHSMOVE (1, ;, PM 
H$MO : : “"c'> "e'), EDTS$T_PMT_HCCHG) ; 
CHSMOVE (15, T 14, 13, 10, ' ")> EDTS$T_PMT_INS); 


EDTS$$T_PMT_INSN); 
|, CHSMOVE 7"), EBTS$T_PMT_QUERY); 


Allocate some VM for the string such as page and end text and entity specifications 
"LEN = 6; 
IF EDTSSALO_HEAP (LEN, EDTS$A_US_TXT (0]) ! end text 


—— (.LEN, UPLIT BYTE(S, ‘CEOBJ'), .EDT$$A_US_TXT (OJ) 


BEGIN 
EDTSSFMT_MSG <EDTS_INSMEM); 
RETURN (3); 
LEN = 5; 
IF EDTSSALO_HEAP (LEN, EDTS$$A_US_TXT [1]) ! page text 
CHSMOVE (.LEN, UPLIT BYTE(4, ‘"<FF>'), .EDT$$A_US_TXT (1]) 
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BEGIN 
EDTSSFMT_MSG (EDTS_INSMEM); 
RETURN (3); 


LEN = 7; « 
IF EDTSS$ALO_HEAP (LEN, EDTS$A_US_ENT [0]) ! word entity 


HEN 
aa (.LEN, UPLIT BYTE(6, ° *, 9, 10, 11, 12, 13), .EDTSSA_US_ENT (0J) 


| 
| 
BEGIN 
EDTSSFMT_MSG (EDTS_INSMEM); 
RETURN (3); 
| 


LEN = 4; 
IF EDTSSALO_HEAP (LEN, EDTS$A_US_ENT (1]) ! sent entity 
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605 04 
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607 Be 
608 5 
609 8 
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612 11 


THEN 
ase (4, UPLIT BYTE(S, *.", ‘!", '2°), .EDT$$SA_US_ENT [1]) 


MSG (EDTS_INSMEM) ; 


BEGIN 
EDTSSFMT 
RETURN (3 


LEN = 3; 
IF EDTSSALO_HEAP (LEN, EDTSS$A_US_ENT [2]) |! sect entity 
ugg CHSMOVE (3, UPLIT BYTE(2, 13, 13), .EDTS$A_US_ENT (2]) 


BEGIN 
EDTSSFMT_MSG (EDTS_INSMEM); 
RETURN (3); 
LEN = 2; 
4 EOTESALG_NEAP (LEN, EDT$$A_US_ENT (33) ! page entity 
gg HSMOVE (2, UPLIT BYTE(1, 12), .EDTS$A_US_ENT [3)) 


BEGIN 
EDTSSFMT_MSG (EDTS$_INSMEM); 
RETURN (3); 


+ 
Save the terminal width gotten from the operating system 


EDT$$G_SAV_TIWID = .EDT$S$G_TI_WID; 

i Open the workfile. If it fails, abort. 
EDTSSCALLWIO (EDTSK_OPEN_IN_OUT, 0, 0); 
open the paste text buffer. 


am NOT EDTSSFND_BUF (UPLIT BYTE("PASTE'), 5)) 


BEGIN 
EDTSSFMT_MSG (EDT$_INSMEM); 
RETURN (3); 
: EDTSSA_PST_BUF = .EDT$$A_CUR_BUF ; 
! And the MAIN text buffer. 


fen NOT EDTSS$GET_BUFPTR (UPLIT BYTE('MAIN'), 4, EDTSS$A_CUR_BUF, NEW)) 
BEGIN 
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EDISSINIT - Initialize EDT 12280 8- 1 bhe 90:38:18 DLSKSVMGMASTERSCEDT SRCSINIT-BLI:1 . Rid 
; 613 1 13 EDTSSFMT_MSG (EDTS_INSMEM); | ; 
; 614 121 RETURN (3); ; 
: 615 1214 ; | ; 
; oi8 1215 5 
3 2 ! 18 EDTSSA_PRV_BUF = .EDTSSA_CUR_BUF; : 
; ei : IF .EDTS$G_INPUT_OPN THEN EDTSS$A_CUR_BUF CTBCB_INPUT_RAB] = 1; : 
i be 1920 EDTSSNEW_BUF (); | ; 
; 6 g 1 ¢ ! If no output file has been specified, defer the ‘non standard’ message ; 
; ° ¢ : ? ;_until the first WRITE or EXIT command. ‘ 
: ¢ 1225 : 
; ? ; ' § IA tice cite EQL 2) AND ((.EDTS$V_OPTIONS AND EDTSM_NOOUTPUT) NEQ 0)) ; 
; 629 1228 BEGIN : 
; 630 1229 RETURN_VALUE = 1; . 
; 631 1230 ED1$$G_WRITE_MSG = EDTS_NONSTDFIL; : 
; O36 : 1 END ‘ 
; $34 1 33 BEGIN : 
; 635 1234 EDT$$G_WRITE_MSG = 1; ; 
; 636 1235 END; : 
; 637 1236 : 
; 638 +4 '¢ : 
; 639 1238 ! On VMS deallocate the dynamic descriptors ‘ 
; 640 1239 !- : 
; 641 1240 ° 
; ak: L 1241 ZIF ZBLISS (BLISS32) ; 
; 64 1 $ THEN : 
3 644 124 STRSFREE1_DA (FILE DESC); : 
3 645 1244 STRSFREE1—DX (RHB_DESC); : 
; 64 1245 I ’ 
; «6646 1 28 : 
; 648 124 RETURN (.RETURN_VALUE); : 
; 649 1248 1 END; ! of routine EDTSSINIT ; 
TITLE EDISINIT EDTSINIT - initialize | ; 
SIDENT —\V04-000\ | 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 | : 
OA OD 03 0000 P.AAA: .BYTE 3, 13, 10 ; 3 
A 0000 “ASCII \#\ ; | ; 
0 5 P.AAC: .BYTE : | 3 
OA OD 04 . P.AAD: .BYTE 4, 13, 10 r 3 
43 “ASCII \C\ ; | F 
A 3 OA ASCII \#\ : : 
A OD OB P.AAE: .BYTE 14, 13, 10 : 3 
20 20 20 20 20 20 20 20 20 20 20 OE eASCII \ i 3 
A OD 18 P.AAG: .BYTE 5 13, 10 ; e 
F § eASCIIT = \?2\ : : 
5 021 P.AAH: .BYTE 5 3 3 
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SH sie ittol ise EDT 19-808- 1388 99:39:48 NIEKSUMGMASTERSCEDT  SRCSINIT.BLI:1 ad . 
13 ; BEQL i: | 
D INCL R : | 
0 Ps 1$ MOVL RO, EDT$$G_RCOV_MOD ; | ; 
sone: 000000006 D4 E CLRL EDtSSG RECSCRUPD. 975 ; 
000000006 1 D0 MOVE al, ed $¢_EDIT_ i 997 ; 
0006 renee ° 06 3 Abve ai. EDT SGLEDIT DFLTMOD : id 
apoaaoode a 00000006 ; be v4 Cort Sotste MECPreeT + 0980 3 
tdi § D4 00085 CLRL EDTSSG EX! Ds ; 381 
000000006 00 1 00 0008 HOVL al 6D $$6_Nos a8 
Booosg008 09 pe bong et ee sse-ener marcn : 3ob2 
. oS MOVL #1 oreeg SEA_BEG 3 0985 3 
aeerves we 000006 } p? wih CLRL EDTS$G. SEATBNDD 3 0986 
tatdaitdet 0 D4 00008 CLRL EDTS$6_QuI si i 9987 
000000006 00 1 DO 000€1 VL 1 ge $$6_ : 0988 
000000006 00 D4 000E8 CLRL ED sc yEY i 9989 ; 
attains 4 itd: MOVIBL #80, EDT$$G_TI wID : 0991 
eee ae 000000006 00 De 000F9 CLRL = EDT$$A Bur EST 099 ; 
So0nnR00g 96 —«-0100-«sBF. Se. BOTOA MOV oul #256, EDISSG,UD_uRAP : 994 
000000006 00 07 00 00113 OvL @ | D $¢,SELL OTOP : 0995 
000000006 00 OE DO OO11A MOVL #14, EDTS$C_S : 80 : 0996 
000000006 00 16 00 00121 OVL #22, EDT$$G-SCR_ : 099 
Be BOB Rig || Ralin e: BRE tr tig B 
meena om 000000606 00 oA $01 4 CLRL  €EDT$$G_RECS~ INSERTED : 1004 
000000006 00 01 DO 001 , HOVE i. EDTS$6_SCR REBUILD : 1005 
senwvoner 0 600008 0G 09 be O9t4 CLAL tp fsee TXT_ONSCR 3 1 
00000006 00 04 0156 CLRL  EDTS$G"INP™CNT ; 1008 
800 G 00 D4 0015 CLRL —- EDT$$G~SHF : 1009 
D4 0015E CLRL  EDTS$G~TAB_LVL ; 
Bae Mi ER TRE Hiey BH 
99000 6 00 04 00164 CLRL EDT$$G_LN CHG ; 101g 
wre, FO in shut et EDT$$G_DIR_MOD > 1014 
atddittdts 8 Be tes MOVIL #999, EDT$SG_PRV_LN : 1015 
itddittdts aeal ¥ ce S186 EGL o#t EDTSSA SEL_POS : 1016 
000000006 00 04 O18 CLRL Ets G DELT, VERE 1920 
000000006 1 00 0019 VL a1, SED $36 SU 1083 
000000006 00 D4 0019A CLRL EDTSSG URDTYP. : 10 
emanaeens 000000006 b p? 1,9 PERE eptsse TRN-TBLINIT 1026 
70000008 °° 90000006 00 bs OO1B4 CURL EDFSSG_RDARED : 1098 
SHH SBI | RHEE Ae, zi 
" . ant tte4 move ef DT$$G_WkK_GRTSTBUK : 1031 
veces 0 G ) 6? 18 CURL eptsec wk MODFD : 10 < 
G D4 103 CLRL EDT $$G"FMT_LNPOS 103) 
¢ ¢ 1bF MOVAB ED TST i CAD BOF EDTS$A_PA_CURTOK : 1035 
an: 3 Be IPA CLRL  EDT$$G~PA_AOQ soil : 10 6 
0 G 00 04 001F0 CLRL ‘ EDT$$G~TIR_OBUFPOS : 10 
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- Initialize EDT 


EDTSINIT = initialize 
ED ISS INIT } 
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EDTSINIT 16-Sep-1984 00:32:49 VAX-11 Bliss-32 v4.0-74 Page 17 EDT 
Oe e000 13-808- 1382 99:39:48 DISKSVMSMASTERSLEDT SRCTINIT-BLI:1 o° 63) | v04 
5 6A A MOVL. EDT$$A_US_TXT, RO : 11 
60 31 A 08 A 28 6 MOVC3 LEN, P-AAR, (RO) : - 
8 AE 0 p MOVL : N + 1130) 
4 AA OF PUSHAB EDfS$A_US_TXT+4 : 1132. 
C AE OOF A PUSHAB : | 
69 9 FB ; CALLS #2, EDTSS$ALO_HEAP : | 
0 4 AA 4 MOVL.  EDf$$A_US_TXT+4, RO + 1134) 
60 27 Ag 8s AE 23 4 MOVC3 LEN, PAAT, (ROS : od 
8 AE 9 D 6 40 MOVL #7, LEN + 1161) 
7 pp } PUSHL £11463, 
0c A F 8 PUSHAB LEN : | 
9 9 FB 3 CALLS #2, EDTSSALO_HEAP : 
8 a7 6 posse BOVE. _ EDT SSA_US_ENT, RO 1145 | 
60 2c AB 08 AE 28 0 HS MOVC3 LEN, P-AAJ, (RO) : 
08 AE 04 ; : 65 MOVL @& : N : 1152) 
04 A? 9F 00369 PUSHAB EDTS$$A_US_ENT+4 : 1154 
OC AE 9F 0036C PUSHAB ; | 
69 Q FB 00 $f CALLS #2, EDTSSALO_HEAP : 
60 E9 00 : BLBC : 
50 4 A? 00 0037 MOVL  EDTS$$A_US_ENT+4, RO + 1156 
60 3 AN dO 8 79 MOVL AAK, (RO) : 
08 AE 03 DO 0037D MOVL #3, LEN + 1163 
08 A? 9F 00381 PUSHAB EDTS$$A_US_ENT+8 > 1165 | 
0c AE OF 00384 PUSHAB : 
69 FB 00387 CALLS #2, EDTS$ALO_HEAP : 
6E 0 €9 O038A BLBC ; 
50 08 A? DO 0038D MOVL §§ EDTSS$A_US_ENT+8, RO + 1167 
60 18 00 AB FO 00391 INSV P.AAL, #07 #24, (RO) : 
08 AE 02 00 00397 MOVL #2, LEN + 1174 
0c A? 9F 0039B PUSHAB EDTS$$A_US_ENT+12 : 1176 
OC AE OF 00396 PUSHAB LEN ; 
69 0 FB 09 Al CALLS #2, EDTSSALO_HEAP : | 
54 50 £9 O03A4 6S: BLBC : 
iS ote A BS Sie «ROVE. BTASRP-UEapTe2. no Seam 
000000006 00 000000006 90 00 Osa MOVE EDT$$6_T1_wID, EDT$$G_SAV_TiwiD : 1188 
000000006 8F DD 0038 PUSHL HEDTSK OPEN_IN_OUT : 
000000006 00 93 FB 0 C CALLS #3, EDTS$CACLWIO : 
pp ¢ PUSHL #5 : 1197 
3c 6=—ABsCOF:s«O003CB PUSHAB P.AAN ; 
000000006 : 08 FB 6 cE ” CALLS ‘ , EDTSSFND_BUF F 
000000006 60 000000006 00 0 6 08 MOVL EDTS$A_CUR_BUF, EDTS$A_PST_BUF : 1204 | 
USH DTS$$A_CUR_BUF : 
000000086 6 F E6 PUSHAB EDTSS 
41 AB ef EF PUSHAB P.AAO F 
G F CALLS #4, EDTS$$GET_BUFPTR : 
00000000 00 4 F Fl CALL 4 $$ | 
000000006 &F DD O05tB Bs PUSHL #EDTS_INSMEM : 1212) 
000000006 1 FB 4 #1, EDTSSFMT_MSG ; | 
3 v6 4 MOVL #3, RO : 1213 | 
DIS$$A_CUR_BUF, R ; 
50 000000006 00 D0 0040¢ EDTSS 0 1216 | 


] 


| 

EDTSINIT EDISINIT = initia 15-50 Sep-1984 149 VAX=11 BLiss-32 V4.0-74 Page 18 

Out O00 EO TSSINIT - eiesiet le EDT 1 ~3007 1382 99: 3¢: :18  DISKSVMSMASTER:CEDT.SRCJINIT.BLI;1 . ay 
000000006 00 DO 00413 MOVL RO, EDTS$SA_PRV BUF ; 

4 000000006 3 4iA BLBC EDtsis INPOT_OPN, 1 ; 1218 | 
2A A 1 4 l MOVE = #1, 4 TR9) : 
000000606 0 FB 00405 10$: CALLS #0, EDTSSNEW_BUF ; 1320 

; p 4 C CMBL RE TURN. VALUE, #2 + 1226 

000000006 8F $8 D 431 BITL FOTS$v_ OPTIONS, #EDT$M_NOOUTPUT : 

13 004 BEQL 1$ : 
56 1 00 0043A MOVL #1, RETURN_VALUE + 1229 
000000006 00 000000006 F p 430 MOVL pomp! EDTS$$G_WRITE_MSG : 0 
000000006 00 1 po 444 11$:  MOVL #1, EDT$$G_WRITE_MSG + 1234 
18 AE OF 431 12$:  PUSHAB FILE_DESC + 1243 

000000006 00 O01 FB 00454 CALLS #1, STRSFREE1_DX : 
10 AE 9F 00458 PUSHAB RHE _D DESC + 1244 

000000006 90 gi FB 0456 CALLS STRSFREE1_DX : 
0 6 00 0046 MOVL RETURN VALUE. “RO + 1247 

04 00468 RET : 
50 D4 00469 13$:  CLRL RO : 1248 

04 00468 RET : 


; Routine Size: 1132 bytes, Routine Base: _EDTSCODE + 0045 


1249 1 
; 651 1250 1 !<BLF/PAGE> 
| 


J 10 
EDTSINIT EDTISINIT = initialize 16-Sep-1984 00:32:49 -VAX-11 Bliss-32 V4.0-74 
Oa e000 EDTSSINIT = Initialize EDT 12-88-1382 12:23:18 DISKSVMGMASTERSCEDT SRCSINIT.BLIs1 
; 653 1251 1 END ! of module EDTSINIT 
; 634 1 ‘ 1 
; 655 1 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
:  EDTSCODE 1201 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
; ecoscese Syebol§ ocecesse Pages Processing 
; File Total Loaded Percent Mapped Time 
> _$255$DUA28 EDT. SRCIEDT L325] 377 33 8 40 00:00.2 
: 7$255$DUAc8 EDT SRC PsecTS.132;1 2 1 5 7 00:00.1 
> 7$255$pUA 8 SYSLIBISTARLET.L32;1 9776 7 0 581 00: 4.0 
: 7$255$pua28: (EDT. SRC SUPPORTS LS; 1 2 1 50 5 0:00.1 
: 7$255$pUA28:CEDT. SRC JKEYPADDEF .L32;1 34 1 2 7 00:00:2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/NOTRACEBACK/LIS=LIS$: INIT/OBJ=OBJ$: INIT MSRC$: INIT.BLI/UPDATE=(ENHS: INIT) 


Size: 1132 code + 69 data bytes 
Run Time: 1321-2 
Elapsed Time: 1:58.6 
Lines/CPU Min: Ee 
; Lexemes/CPU-Min: 3416 
Memo sed: 290 pages 


ry U 
Compilation Complete 


] 


| 
| 
| 
| 
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